home *** CD-ROM | disk | FTP | other *** search
/ Resource for Source: Assembly / assembly resource for source.iso / assem02 / usoftpd.arc / FAMAIN.FOR < prev    next >
Encoding:
Text File  |  1987-07-31  |  190 b   |  12 lines
  1.  
  2.     INTERFACE TO INTEGER*2 FUNCTION POWER2(A,B)
  3.     INTEGER*2 A,B
  4.     END
  5. C
  6.     INTEGER*2 POWER2
  7.     INTEGER*2 A,B
  8.     A = 3
  9.     B = 5
  10.     WRITE (*,*) '3 times 2 to the power of 5 is ',POWER2(A,B)
  11.     END
  12.